home *** CD-ROM | disk | FTP | other *** search
/ Computer Select (Limited Edition) / Computer Select.iso / dobbs / v16n09 / bob12.exe / FOO.C < prev    next >
Encoding:
Text File  |  1991-09-09  |  390 b   |  16 lines
  1. /* newobject - allocate a new object */
  2. OBJECT *newobject(class)
  3.   VALUE *class;
  4. {
  5.     OBJECT *val;
  6.     int size,n;
  7.     VALUE *p;
  8.     n = clgetsize(class);
  9.     size = sizeof(OBJECT) + (n - 1) * sizeof(VALUE);
  10.     val = (OBJECT *)allocmemory(DT_OBJECT,size);
  11.     val->obj_class = *class;
  12.     for (p = val->obj_members; --n >= 0; ++p)
  13.     p->v_type = DT_NIL;
  14.     return (val);
  15. }
  16.